home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3.2 / Ham Radio Version 3.2 (Chestnut CD-ROMs)(1993).ISO / control / net400-1 / netmain.pas < prev    next >
Pascal/Delphi Source File  |  1989-07-13  |  1KB  |  51 lines
  1. Procedure MainLoop;
  2. begin
  3.   oldtime := SystemTime;
  4.   repeat
  5.     if keypressed then
  6.     begin
  7.       key := readkey;
  8.       if key = #13
  9.       then begin
  10.              over_img2;
  11.              login;
  12.              over_img1;
  13.            end;
  14.       if (key = #0)
  15.       then
  16.         begin
  17.           key := readkey;
  18.           case key of
  19. { F1 }      #59  : MainHelp;
  20. { alt F1}   #104 : MaintainNetLog;
  21. { F5 }      #63  : delete_entry;
  22. { F10}      #68  : change_log_status;
  23.  
  24. { HOME }    #71  : top_of_roster;
  25. { UArr }    #72  : scroll_down;
  26. { PgUp }    #73  : display_nbr(mark1);
  27. { End  }    #79  : end_of_roster;
  28. { DArr }    #80  : scroll_up;
  29. { PgDn }    #81  : display_nbr(mark2);
  30. { ^ End }   #117 : ; { CTRL-END TO EXIT THE PROGRAM }
  31.             else key := #0;
  32.           end;
  33.         end
  34.       else
  35.         case key of
  36.           #43  :  set_mark2;
  37.           #45  :  set_mark1;
  38.           else key := #0;
  39.         end;
  40.     end
  41.     else
  42.       begin
  43.         if oldtime <> SystemTime then
  44.         begin
  45.           oldtime := SystemTime;
  46.           update_time;
  47.         end;
  48.       end;
  49.   until key = #117;
  50. end;
  51.